home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / demos.idb / usr / demos / General_Demos / blast / RUN.z / RUN
Encoding:
Text File  |  1997-06-26  |  502 b   |  27 lines
  1. #!/usr/sbin/perl
  2. #Tag 0x9054
  3. $ENV{'DISPLAY'} = "localhost:0.0";
  4. chdir("/usr/demos/General_Demos/blast/data");
  5. $hinv = `/usr/bin/hinv -c graphics`;
  6. $cpu = `/usr/bin/hinv -t cpu`;
  7.  
  8. chop $hinv;
  9. chop $cpu;
  10.  
  11. if ($hinv && $cpu) {
  12.    if ( grep(/MIPS R2/, $cpu) || grep(/MIPS R3/, $cpu) || grep(/XL/, $hinv) ) 
  13.     {
  14.         $textures = 0;
  15.     } else {
  16.         $textures = 1;
  17.     }
  18. } else {
  19.     $textures = 0;
  20. }
  21.  
  22. if ($textures) {
  23.     `/usr/demos/General_Demos/blast/blast -T -p&`;
  24. } else {
  25.     `/usr/demos/General_Demos/blast/blast -p&`;
  26. }
  27.